home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / powerb5.zip / P5WPR004.TIP < prev    next >
Text File  |  1993-06-01  |  4KB  |  109 lines
  1. When you load Word for Windows, the program assumes you keep
  2. your data files in your program directory. Unless you tell
  3. it otherwise, that's where it will save new files. I can't
  4. tell you how many times I've searched for a "missing" file,
  5. only to find it lurking in my WinWord directory.
  6. Fortunately, Word for Windows has a very powerful built-in
  7. macro language that let me build a solution to the problem.
  8. I wrote an AutoExec macro that runs when you first load
  9. Word, prompting you to pick a data directory. You're not
  10. even limited to eight-character labels for your directories,
  11. but can use descriptive names like Jones Account or Personal
  12. Letters.
  13.  
  14. If you want to change directories again during a session,
  15. simply rerun AutoExec as you would any other macro (from the
  16. macro dialog box or with an assigned shortcut key). Remember
  17. to modify the case statements in the listing to reflect your
  18. directories and subject headings.
  19.  
  20. David Walske
  21. Beverly Hills, California
  22.  
  23. Editor's Note: Windows 3.1 allows you to specify a separate
  24. start-up directory, letting you pick a default other than
  25. WINWORD, but you'll still find this macro useful, because it
  26. lets you choose between data directories on the fly.
  27.  
  28. The macro is included as the file WWDIR.TXT in the P5WPR
  29. directory of your PowerBase *.* diskette, but because Word
  30. for Windows doesn't let you import text directly into its
  31. macro editor, getting the text into a macro is tricky.
  32. Here's the best way: first, start Word for Windows and use
  33. the Insert·File... command to import the text of the macro
  34. into a new Word for Windows document. Then copy the body of
  35. the macro to the clipboard, omitting the Sub Main statement
  36. at the top and the End Sub statement at the bottom. Next,
  37. select Tools·Macros, type AutoExec as your macro name, and
  38. select Edit. Paste the macro text between the Sub and End
  39. Sub statements in the macro editing window. Finally, double
  40. click on the "go away" box in the upper left corner of the
  41. editing window and tell Word for Windows that you want to
  42. save the macro.
  43.  
  44. Try running the macro by clicking on the Start button.
  45. Because this macro has the name AutoExec, it'll run every
  46. time Word for Windows starts up. When it runs, you can
  47. select a directory from the list or type in any other
  48. directory name. If you type a directory name that doesn't
  49. exist, the macro will offer to create it for you making it
  50. easy to create new directories as you sort through your
  51. documents. If you want a particular session to start without
  52. this macro, use the program or File Manager's File·Run
  53. command, and enter Winword /m at the command line.
  54.  
  55. ---- BEGIN LISTING ----
  56. Sub MAIN
  57. Dim TypeArr$(4)
  58. TypeArr$(0) = "Jones Account"
  59. TypeArr$(1) = "Smith Account"
  60. TypeArr$(2) = "Personal Letters"
  61. TypeArr$(3) = "Temporary"
  62. TypeArr$(4) = "Great American Novel"
  63. TryAgain:
  64. Begin Dialog UserDialog 325, 112
  65.  Text 6, 10, 300, 18, "Project Name or Path"
  66.  ComboBox 6, 25, 200, 85, TypeArr$(), .ProjDir
  67.  OKButton 250, 80, 40, 18
  68. End Dialog
  69. Dim Project As Dialog UserDialog
  70. Dialog Project
  71. Answer$ = Project.ProjDir
  72. Select Case Project.ProjDir
  73.  Case "Jones Account"
  74.   ChDir "C:\jones"
  75.  Case "Smith Account"
  76.   ChDir "C:\smith"
  77.  Case "Personal Letters"
  78.   ChDir "C:\personal"
  79.  Case "Temporary"
  80.   ChDir "C:\temp"
  81.  Case ""
  82.   Goto TryAgain
  83.  Case Else
  84.   Err = 0
  85.   On Error Goto ErrorMsg
  86.   ChDir Answer$
  87.   Goto Done
  88. ErrorMsg:
  89.  Prompt$ = "Create Directory: " + Answer$ + " ?"
  90.  Num = MsgBox(Prompt$, "Path Not Found", 36)
  91.  If Num = - 1 Then
  92.   MkDir Answer$
  93.   ChDir Answer$
  94.  Else
  95.   Goto TryAgain
  96.  End If
  97. Done:
  98. End Select
  99. End Sub
  100. ---- END LISTING ----
  101.  
  102.  
  103. Title: Defy WinWord Document Disorder
  104. Category: WPR
  105. Issue Date: June, 1992
  106. Editor: Brett Glass
  107. Supplementary Files: P5WPR\WWDIR.TXT
  108. Filename: P5WPR004.TIP
  109.